home *** CD-ROM | disk | FTP | other *** search
/ ftp.cs.arizona.edu / ftp.cs.arizona.edu.tar / ftp.cs.arizona.edu / icon / newsgrp / group00b.txt / 000074_icon-group-sender _Wed Oct 11 14:45:48 2000.msg < prev    next >
Internet Message Format  |  2001-01-03  |  3KB
  1. Return-Path: <icon-group-sender>
  2. Received: (from root@localhost)
  3.     by baskerville.CS.Arizona.EDU (8.9.1a/8.9.1) id OAA08433
  4.     for icon-group-addresses; Wed, 11 Oct 2000 14:45:38 -0700 (MST)
  5. Message-Id: <200010112145.OAA08433@baskerville.CS.Arizona.EDU>
  6. From: Steve Wampler <swampler@noao.edu>
  7. X-Newsgroups: comp.lang.icon
  8. Subject: Re: can icon do this?
  9. Date: Wed, 11 Oct 2000 14:04:26 -0700
  10. X-Trace: noao.edu 971298269 51656 140.252.38.6 (11 Oct 2000 21:04:29 GMT)
  11. X-Complaints-To: abuse@noao.edu
  12. To: Antonella <gea@earthling.net>
  13. X-Accept-Language: en
  14. To: icon-group@optima.CS.Arizona.EDU
  15. Errors-To: icon-group-errors@optima.CS.Arizona.EDU
  16. Status: RO
  17. Content-Length: 2569
  18.  
  19. Antonella wrote:
  20. > 
  21. > What code inspects one input text file, checks each line for occurrences
  22. > of a string, and if found replaces that string in an otherwise identical
  23. > output file?
  24.  
  25. There are several parts to this (based on information in a later posting
  26. from Antonella):
  27.  
  28. (a) given s1, s2, and target, produce source so that every occurrence of
  29.     s1 in target has been replaced by s2
  30.  
  31. (b) handle multiple pairs of s1,s2
  32.  
  33. (c) figure out how to specify these multiple pairs on the command line.
  34.  
  35. One solution to (a) is:
  36.  
  37.    procedure mapString(sText, tText, inLine)
  38.        outLine := ""
  39.        inLine ? {
  40.            while outLine ||:= (tab(find(sText)) || tText) do {
  41.                move(*sText)
  42.                }
  43.            outLine ||:= tab(0)
  44.            }
  45.        return outLine
  46.    end
  47.  
  48. (b) is tricky, but one easy to implement approach is to use
  49. a table mapping each s1 into its matching s2.  Assuming
  50. such a table exists, then (a) can be used to help solve (b)
  51. as in:
  52.  
  53.    procedure mapStrings(sMap, inLine)
  54.        outLine := inLine
  55.        every s1 := key(sMap) do {
  56.            outLine := mapString(s1, sMap[s1], outLine)
  57.            }
  58.        return outLine
  59.    end
  60.  
  61. Now the table has to be built.  It's easiest to combine this
  62. with parsing the command-line arguments.  If the commandline
  63. contains arguments of the form s1=s2, then (c) is:
  64.  
  65.     procedure buildMap(args)
  66.        sMap := table()
  67.        every args := !args do {
  68.            s1 := s2 := ""
  69.            arg ? { 
  70.                s1 := tab(upto("=")) | next
  71.                move(1)
  72.                s2 := tab(0)
  73.                }
  74.            if *s1 = 0 then stop("Cannot use null string as a source string")
  75.            sMap[s1] := s2
  76.            }
  77.        return sMap
  78.    end
  79.  
  80. Putting it altogether is a main procedure that reads from
  81. standard input and writes to standard output:
  82.  
  83.    procedure main(args)
  84.        if *args = 0 then stop("Usage: mapFile string1=string2 ...")
  85.  
  86.        sMap := buildMap(args)
  87.        every write(mapStrings(sMap, !&input))
  88.    end
  89.  
  90. If this code is in mapFile.icn and is translated into mapFile, then
  91. an example call would be:
  92.  
  93.    mapFile string=fling arg=barge <mapFile.icn >newFile.icn
  94.  
  95. A potentially more elegant approach (since this one requires multiple
  96. passes over each input lines) is to write a varient of find() that accepts
  97. a set of strings to find and generates the positions of those strings
  98. in increasing order).  Anyone up for it?  Would it be faster, slower,
  99. or about the same as this approach?
  100.  
  101. --
  102. Steve Wampler-  SOLIS Project, National Solar Observatory
  103. swampler@noao.edu
  104.